Data Documents/Inc. 


6 a 0 a, a 5 * 
a oO & a BD  & > 


LABEL OOOQQOQOQDO0UPRIATFROOI75096CC EX OBVECT/REAUSFILE SOURCEF ILE=SYMBUL/STATS2;5ENVe OBYECT “READ r] 


LL AC CE LL LEP nn nnn es ET 9o) me te ee amen sess tes ap give ceptor ney 


URN ee nego cp mec inept umntnumgen see AA Na tne RR 


LP  eeinneeiieigenteninien s den uty wimgivaiec ‘ens vitae uisatetunee mee ah 2 Sane eta me Ree ent te ne ee pe nee 


ng ee wes sovam mame Hs sive esis eves tat a meranamaamin se me ahaa A 


I A re pnp Henini enn ens cnsertenerenent enna Men etna se Sina penremaetaiatmies 


er Se a ee 


sf @ 
51 
5 
| @ 


Data Documents/inc. 


r) ® 
BEGINS ANALYSIS OF TIME*SHARING LUG FOR JUG STATISTICS. 00000100 
r COMMENT! »* TITLES BS5500/85700 MARK XIV SYSTEM HELE ASE * 000G0110 @ 
* * wel oR @LOYS 16 Es ORee nk eee oe ee 
1 * THIS MATERIAL IS PROPRIETARY TG BURROUGHS CURPORATION * 00000112 
@ 2 * AND IS ie TO BE ene: USED» OR DISCLUSED * 00000113 
3 * : ri 
4 * WRITTEN aa Gk LF TRE PaTENT DIVISIGN OF * 00000115 
@;: * BURROUGHS CORPURATIUNs UETRUIT» MICHIGAN 48232 * 00000116 
6 ” i OO 
7 * COPYRIGHT (C) 1971» 1972 BURROUGHS CORPORATION * 00000118 
eo. * AA320206 AA386657 *3 00000419 
8 FILE TWX REMOTE (2010), eee eh ee OOOO 200 
no DSK DISK SERIAL (2210%30)> 00000300 
er PRN 4(€2016)3 00000400 
n2 __INTEGER Is J3 00000500 ——ss 
ARRAY LoGtoil is [OGREC> STARTIME CORETIME MI XATEOUP SWAPS» 00000600 
@ PTIMEsTOTIMEsSECONDPBITS+SECONODPBITS(O%294;5 00000700 
15 ARRAY CORE sCODEPBITSsDATAPBITS»CUDEOLAYSsDATAULAYSLO 329 JoCNTCOI4)3 00000800 =. 
i ARRAY OLAYsFIRSTCHUNKsLASTCHUNK[O?t2915 00000900 
e@” LABEL EOF»RD13 00001000 
fe REAL STRTIMEsSTPTIM ERLAYU OQo001j00. 2 
9 REAL MIXsWORDZERO,STOPTIME s NAME1 @NAML2s 00001200 
@» FORMAT LOGNAMEC*TS LOG FILES "sAlsAGe"/"pAlsA6)> 00001300 
: ____..._ JOBSTATS ("JOB NAMES "sAtsAGe"/"sAte aos OOOO eee ie tees 
P Nemamaamat/ 00001500 
@ » X4e"BOU TIMES “o]2e"3% e125 00001600 
i XS eT k0s Time t Melee" stele, aud 7 OG dese 
2 XSe"ELAPSED TIMES "#135" MINS. "sF5,2e" SECS .N// 0000180C 
@ X4 "PROCESSOR TIME: "2139" aeep "oF 5. ee" SECS.", 00001900 
27 X50" /O TIME? "*sIl3e" MINS Q 
Pa X4e"CORE REQUIRED! ",155" NORDS Chsl2e%=,12,"), 00002100 
6 F: X4e" TIME IN CURES "sI ao" MINS. "sFS,20" SECS,» 00002200 
BO XSe "OVERLAY STORAGE USEDS “s] 30" SUBOSE NSNS/ 0000230 a 
s X4e"NUMBER OF CODE P BIT INTRPTS# “slay. 00002400 
@ | X4>"NUMBER OF CODE UVERLAYS: "“slas 90002500 
33) X4e"NUMBER OF SECONUARY CODE F BIT INTRPTS! "slas/ 00002600) ss 
B X4e"NUMBER OF DATA P BIT INTRPTO& "sd, 00002706 
@ f: X4e"NUMBER OF DATA UVEKLAYS:? "544 00002800 
a X4e"NUMBER OF SECONDARY DATA FP BIT INTKPTS!2 “as lass o0V02900 
87 X4s"NUMBER OF FORCED SwAPS: "413, 00003000 
@ XSe"NUMBER OF TIME SWAPS$ ",13// 00003100 
B9 X4s "NUMBER OF JOBS REMAINING IN MIXS "sles 00003200 eee 
0 3 00003300 
@ i FORMAT ASKFORAFILEC "WHICH LOG ")3 00003400 
2 STREAM PROCEDURE SCANFILECLOG); 060350 __ 
a LOOM MRAM RT RH ENE RNH ARN RRR M EAN E NAN NTRS RAHM ORRsonmananannmneamanewem 003600 
@ BEGIN REAL LOGAL2sLOCALI; . 00003700 
12, 0G) Oree@ LO aca 22 : 00003800 
6 DIssDI413 00003900 
Or 7CIF SCa"/" THEN DSSSLIT" " ELSE DS: CHRIE 00004000 
s ; Dp [isp H O00 00 
OSsaF CHRS 00004200 
OF | | SIs#LOC LOCALI; ort Logs 00004300 
51), : r 216° CHA HHo0o0k4na00 
END; 00004500 
FO ORT REM ENR TANT THETA nnwammoameaa wm nm ()()()() 4 6()() 
PROCEDUR OMPUTEOVERLAYS 00004700 te Os! 
Nace” oe 00904800 
CNTCOI]&*® REAL CCISSGLAYOMIXI2.£18161 NEQ 0)3 00004900 
| 2 . tl 2446) NE Q “ hae 
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CNTC2]3= REALC1.£30%96] NEG O)5 


00005400 
CNTE3]2= REALCI.C 3626) NEQ U3 00005200 ® 
ieee INEM ORE ALCL (42 8 6 IN OO ce ot le oe OU US IO fi ee 
OVERLAYUSED tC (CIel3s1q)=1)X5)+CNTLOJFCNTLI JFCNTE2I4 00005400 
CNTL3V#CNTL4I)3 00005500 |@ 
SINS on i POUOS ROD ee 3 
owe eee ame e eae mee cree anon ee mene meme eena ene enennnannnwnwawewenaQQ00570) ‘ 
STREAM PROCEDURE DOITCA)S 00005800 |@ 
acto eae GN ae a on fe ee BE ci eee OQ005900 = = 7 
DIteA3 00006000 7 
DStaL ITO"; | 00006100 |@ 
oD a nhs hae sae Bw ee ee pes eae ce OU PO Oo rth sin enh ec rtd an ay es Mead cheapest es BE : 
DSteLIT"0"3 00006300 10 
ENDS 00006400 @ 
Jat nme newnnnceen wens arte ern t nent ese teense nen ne tener n mene nnn nee na900006500 2 
DEFINE TYP = 16137#> 00006600 
MIXF = 2158s 00006700 @ 
TIMEF = 2512383 00006800, ——s—is 15 
Renacccdsssasaqaewcenscses MAIN RUDY sciueoccomeseesucnancecsoseeeencause0Q00000 
WRITE CTWXCSTOPJ*ASKFORAFILE)s REANCTWXs 2-LUGL*))3 00007000 |\@ 
SCANFILECLOG)3 00007100 eee 18 
FILL DSK WITH LOGLO]»LUGLIIP 00007200 19 
WRITECPRN*LOGNAMEs LOGLO] « LO%G]*LOGL0O] +L OGL1I,l6tO)»LOGL1I)3 00007300 Je 
ROL? READCOSKs LOsLOGRECL#IICEOFI3 00007400 , 24 
IF CWORDZERO!=LOGREC(U]) = GEALCNG) FALSE) THEN Go TO EOF 3 00007500 2 
MIX?=WORDZEROs (MIX J3 00007600 1 @ 
_1F -WORDZEROs[TYP}] © 2 THEN 4 I7S A BUY MESsAGE pO OOP Oe sion ech ce tae a a whe Fa : ene pal 
BEGIN 00007600 2 
START IMELMIX] $@WORDZERO,LTIMEFD3 00007900 ro @ 
GOTO RnIs  ——“CssSS—“‘“‘(‘sé OO  lppotoo L 
ENDS 00008100 ba 
IF WORDZEROeLTYP] © 19 THEN & ITS A STATISTICS RECORD 00008200 1 @ 
BEGIN CLOUT 1 (010 ee 20 
CORETIMECWIX#®NOROZERO+LMIXFIJ#=_OGRECLII3 00008400 31 
OLAYEMIX]t@LOGREC(2)3 00008500 @ 
FIRSTCHUNKEMIX] $SLOGRECE 4) of 1886)3 00008600, ss” 2 
LASTCHUNKC(MIXJf=LOGRECL4]«L12:601]3 00008700 ) 
SWAPSEMIXJ$=LUGRECLS)3 00vueedd »@ 
i CODEPBITS(MIXIt=LUGRECL6] «624124 ]5 o00u8900 ss 28 
DATAPBITSEMIX]t=LOGRECLO]sL1323]3 00009000 7 
CODEOLAYSEMIXJ12LOGRECL7}.L24124); 00009100 4 @ 
_ DA A M t=L OGRE 132373 009 = 39 
MIXATEQUEMIXIJ#=LUGRECLO)3 00009300 7 
SECONDPBITSCMIXI]$=LOGRECLSJ.Ceatouls 0000940G «|@ 
SECONDOPBITSCEMIX]$=LUGREC(91.(1123]3 00009500 «2 
GO TO Rots 00009600 ‘ 
END3 00009700 4@ 
IF WORDZEROsE TYP) ® 8 THEN ¥ 11S AN EOg STATISTICS MESSAGE 00009800 7 | “3 
BEGIN 00VU09900 46 
PTIMECMIXJS=LOGREC(1]3 00010000 18 
LOTIMECMIXI#=LOGREC(2]3 00010100 


CORECMIXJ#eLOGRECE3I3 


GO TO RDIE | 
ALE: 
IF WORDZEROsC TYP} = >3 SHEN. 4 ITs “AN Eda MESSAGE 
BEGIN 
IF OVER AY SEDts=OLAYCMIx] NEQ O THEN CUMPLTEO ERLAYS 
STOPT IME S@WORDZERO. CTIMEF Ia 
por ence ewes] 17, 
NAMELEMLOGRECOCLISNAMEZESLOGRECC2I3 
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00010300 ie | os 
= 00010400 i 
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00010600 | bg 
oovL0700 
00010800 a | 
00010900 : | i 
00911000 ‘hs : . 


wala vocuments/inc. 


@ @ 
WRITECPRN» JOBSTATS»NAME1 el O86] »NAMEL>NAME D6 L626)] 2» NAMEQ, 00011100 
@ | CSTARTIMELMIXJ/36U0) DIV 60s 00011200 & 
STARTIMEEMI4]/3600) MOD 60> meres °° ey 5 0 ee ee 
\ CSTOPTIME/3600) DIV 60> 00011400 
@ |: CSTOPTIME/3600) MOD 60> 00011500 
3 — CSTOMTIME*STARTIMECMIX)) DIV 36007 00011600 _ = 
4 CCOSTOPTIME@STARTIMELMIX])) MUD 3600)/60. 00011700 
@ |: CPTIMECMIX] DIV 3000)» 0090118600 
6 P , MG 36060 )/760 00011900 
7 CIOTIMECMIX] DIV 3600), 00912000 
@| Sean MOO. ae0Q1¢607 : 00012100 
9 CORECMIXI» 00012200 = 
Ke FIRSTCHUNK(MIX]> 00912300 
r eb LASTCHUNK(MIX]>» 00012400 
i oi bi) on ee SCORE IMECM IAD DIN: BOQ0 iis 2 2. 8 i OOO T8001 ho 
t CCORETIMEEMIX] MOD SENGRtGNe 00912600 
OVERLAYUSEDs . 00912700 
fs CpTrer CODEPBITSEMIX)» 00032800 
6 CODEQLAYS(CMIX]> 00012900 
@” SECONOPBITSE MIX)» 00013000 
8 DATAPBITSEMIX]>» Q0013}00 
8 DATAGLAYSE MIX)» 00013200 
@r SECONOCPBITSCMIXI» 00013300 
: Sa AS ON a 0 2 
SWAPSEMIXI].C24:24a)> 00013500 
@ » MIXATECJOM]X]) 00013600 
p 3 OOOL3700. —=——s 
; WRITECPRN)S WRITECPRI)2 00013800 
@ GO TO ROL , 00013900 
27] NOs 00014000 = 
Ps GO TO RD43 00014100 
@r EOF! END. 00014200 
‘ ENDZEND. LAST CARD UN OCRDING TAPE 99999999 
@ ¢ 
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LABEL OQOOO0OQOOPRINTEROOLI7FSO9NCC cX OBVECT/READSFILE SUURCEFILESSYMBOL/STATS23ENUe 
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